﻿
Imports std

Public Module rashare
    Public Function internalNaming(ByVal s As String) As Boolean
        If isemptystring(s) Then
            Return True
        End If
        Return strsame(s, feedsname, True) _
                OrElse strsame(s, tagsname, True) _
                OrElse strsame(s, crawling, True) _
                OrElse strcont(s, clickcount, True) _
                OrElse strcont(s, feedname, True) _
                OrElse strcont(s, tagname, True)
    End Function

    Public Function generateClickKey(ByVal feed As String) As String
        Return clickcount + feedname + feed
    End Function

    Public Function generateClickKey(ByVal feed As String, ByVal category As String) As String
        Return clickcount + feedname + feed + tagname + category
    End Function
End Module
